home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / oberon.lha / Oberon / KillOberon < prev    next >
Encoding:
Text File  |  1994-07-13  |  234 b   |  10 lines
  1. status >env:KillOberon1
  2. search env:KillOberon1 Oberon nonum >env:KillOberon2
  3. if not "$KillOberon2" eq ""
  4.  echo "$KillOberon2" first=9 len=2 >env:KillOberon1
  5.  break $KillOberon1 all
  6. endif
  7. delete env:KillOberon1
  8. delete env:KillOberon2
  9.  
  10.